;50 25 10 5 1 --> 100 or n*100
(begin
 (define (exchange-possibility n)
   (define (>= a b)(or (> a b) (= a b)))
   (define (certain-exchange money remains next-certain-exchange)
     (if (= 0 remains) 1
         (+ (next-certain-exchange remains)
            (if (>= (- remains money) 0)(certain-exchange money (- remains money) next-certain-exchange) 0))))
   (define (n-c-e X n-n-c-e)
;     (define (wrapping-closure)
       (define (c-e remains)
        (certain-exchange X remains n-n-c-e))
       c-e)
;     wrapping-closure)
  
   (define (ending-list)
;     (define (wrapping)
      (define (p x)
        0)
       p)
;     wrapping)
   
   
   (certain-exchange 50 n (n-c-e 25 (n-c-e 10 (n-c-e 5 (n-c-e 1 (ending-list)))))))
 (exchange-possibility 100)
 )
;Just a try. We'll see.
